home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 November / PCWorld_2006-11_cd.bin / v cisle / pcwcleaner / pcwcleaner.exe / pcwCleaner.vbs
Text File  |  2006-09-19  |  30KB  |  639 lines
  1. dim winos
  2. dim userprofile
  3. dim batch
  4. dim pfad
  5. dim csid
  6. dim dl(25)
  7. dim done
  8. dim alluser
  9. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  10. set MyShell = CreateObject("Wscript.Shell")
  11. Set myNet = WScript.CreateObject("WScript.Network")
  12. Set myEnv = myShell.Environment("PROCESS")
  13. pfad=myEnv("PATH")
  14. userprofile = MyEnv("USERPROFILE")
  15. alluser = MyEnv("ALLUSERSPROFILE")
  16. if right(userprofile,1)<>"\" then userprofile=userprofile & "\"
  17. myName=chr(34) & myNet.UserName & chr(34)
  18.  
  19. Done=alluser & "\pcwCleaner.Done"
  20. on error resume next
  21. MyFiles.DeleteFile(Done)
  22. on error goto 0
  23.  
  24. checkversion
  25. GetMySID userprofile
  26. IsAdmin myname
  27. IsKillEXE
  28. What2Do
  29.  
  30. '------------------------------------------------------------------------------
  31. sub MakeCleaner ()
  32. i=msgbox("U₧ivatelskΘ jmΘno: " & myname _
  33.     & chr(13) & "Kontrola nastavenφ prßv na ·rove≥ administrßtora." _
  34.     & chr(13) & "SID pro tento ·Φet: " _
  35.     & chr(13) & csid _
  36.     & chr(13) & chr(13) & "Odpov∞zte na nßsledujφcφ dotazy." _
  37.     & chr(13) & "Na zßklad∞ odpov∞dφ se vytvo°φ dßvkov² soubor" _
  38.     & chr(13) & Batch _
  39.     & chr(13) & ", kter² se bude v budoucnu pou₧φvat pro ΦiÜt∞nφ vaÜeho systΘmu."_
  40.     & chr(13) & chr(13) & "╚iÜt∞nφ systΘmu v₧dy spouÜt∞jte p°es skript pcwCleaner.VBS.",65,"pcwCleaner 2.0: Konfigurace")
  41. if i=2 then wscript.quit
  42. set ClearBatch = MyFiles.CreateTextFile(Batch, True)
  43. ClearBatch.writeline "@echo off"
  44. ClearBatch.writeline "color FC"
  45. ClearBatch.writeline "SET path=" & pfad 
  46.  
  47. if instr(winos,"XP") then 
  48.     ClearBatch.writeline "sc.exe stop SSDPSRV"
  49.     ClearBatch.writeline "sc.exe stop webclient"
  50.     ClearBatch.writeline "sc.exe stop lmhosts"
  51.     ClearBatch.writeline "sc.exe stop spooler"
  52. end if
  53.  
  54. ClearBatch.writeline "Kill.EXE /F *xplore*"
  55. ClearBatch.writeline "pcwKill.EXE /F *xplore*"
  56. ClearBatch.writeline "Echo."
  57. ClearBatch.writeline "Echo  Hledßnφ soubor∙, kterΘ se majφ odstranit..."
  58.  
  59. set mydrives=myFiles.drives
  60. for each temp in mydrives
  61.     if temp.drivetype=1 or temp.drivetype=2 or temp.drivetype=5 then
  62.         if ucase(temp.driveLetter) <> "A" and ucase(temp.driveLetter) <> "B" then
  63.             dnum=dnum + 1
  64.             DL(dnum)=temp.Driveletter
  65.             alldrives=alldrives & DL(dnum) & " "
  66.         end if
  67.     end if
  68. next
  69.  
  70. answer=msgbox("Chcete smazat soubory *.tmp, *.chk, *.old, ~*.???, Iconcache.DB, Thumbs.DB" _
  71.     & chr(13) & "na " & alldrives & " ?" _
  72.     & chr(13) & chr(13) & "[Provedenß akce se dotkne vÜech u₧ivatel∙ poΦφtaΦe]",4, _
  73.     "pcwCleaner 2.0: Konfigurace, Step 1/18")
  74. if answer=6 then
  75.     for temp=1 to dnum
  76.         ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\*.tmp"
  77.         ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\*.chk"
  78.         ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\~*.???"
  79.         ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\*.old"
  80.         ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\IconCache.DB"
  81.         ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\Thumbs.DB"
  82.     next
  83. end if
  84.  
  85. answer=msgbox("Odstranit zßlo₧nφ kopii *.*, *.wbk, *.bak" & chr(13) & "na " & alldrives & " ?"_
  86.     & chr(13) & chr(13) & "[DoporuΦeno pouze p°i pravidelnΘm provßd∞nφ zßloh]" _
  87.     & chr(13) & chr(13) & "[Provedenß akce se dotkne vÜech u₧ivatel∙ poΦφtaΦe]",4,_
  88.     "pcwCleaner 2.0: Konfigurace, Step 2/18")
  89. if answer=6 then
  90.     for temp=1 to dnum
  91.         ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\Zßlo₧nφ kopie *.*"
  92.         ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\*.wbk"
  93.         ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\*.bak"
  94.     next
  95. end if
  96.  
  97. AppData=MyShell.RegRead(csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\AppData")
  98. if right(AppData,1) <> "\" then AppData = AppData & "\"
  99. WordBackup = AppData & "Microsoft\Word\"
  100. WordBackup = chr(34) & WordBackup & chr(34) 
  101. answer=msgbox("Odstranit soubory zßlohy Wordu *.wbk,*.tmp ve" _
  102.     & chr(13) & WordBackup & " ?" _
  103.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4,_
  104.     "pcwCleaner 2.0: Konfigurace, Step 3/18")
  105. if answer=5 then
  106.     ClearBatch.writeline "CLS"
  107.     ClearBatch.writeline "ECHO."
  108.     ClearBatch.writeline "ECHO  " & WordBackup & " se odstra≥uje..."
  109.     ClearBatch.writeline "ECHO."
  110.     ClearBatch.writeline "pushd " & WordBackup
  111.     ClearBatch.writeline "if not errorlevel 1 ("
  112.     ClearBatch.writeline "   attrib.exe -s -r -h *.*"
  113.     ClearBatch.writeline "   del /f /q *.wbk"
  114.     ClearBatch.writeline "   del /f /q *.tmp"
  115.     ClearBatch.writeline "   )"
  116.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  117. end if
  118.  
  119. OfficeRecent = AppData & "Microsoft\Office"
  120. OfficeRecent =chr(34) & OfficeRecent & chr(34) 
  121. answer=msgbox("Chcete odstranit odkazy na naposledy otev°enΘ soubory Office?" & chr(13) & OfficeRecent _
  122.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4,_
  123.     "pcwCleaner 2.0: Konfigurace, Step 4/18")
  124. if answer=6 then
  125.     ClearBatch.writeline "CLS"
  126.     ClearBatch.writeline "ECHO."
  127.     ClearBatch.writeline "ECHO   " & OfficeRecent & " se odstra≥uje..."
  128.     ClearBatch.writeline "ECHO."
  129.     ClearBatch.writeline "pushd " & OfficeRecent
  130.     ClearBatch.writeline "if not errorlevel 1 ("
  131.     ClearBatch.writeline "   attrib.exe /s -s -r -h *.*"
  132.     ClearBatch.writeline "   del /f /s /q *.*"
  133.     ClearBatch.writeline "   )"
  134.     ClearBatch.writeline "Ping.exe -n 2 localhost > NUL"
  135. end if
  136.  
  137. Tempdir=MyEnv("Temp")
  138. if right(tempdir,1)<>"\" then tempdir=tempdir & "\"
  139. Tempdir=chr(34) & tempdir & chr(34) 
  140. answer=msgbox("Chcete odstranit vÜechna data ve slo₧ce %TEMP% ?" & chr(13) & Tempdir _
  141.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4, _
  142.     "pcwCleaner 2.0: Konfigurace, Step 5/18")
  143. if answer=6 then
  144.     ClearBatch.writeline "CLS"
  145.     ClearBatch.writeline "ECHO."
  146.     ClearBatch.writeline "ECHO  Slo₧ka Temp " & tempdir & " se odstra≥uje..."
  147.     ClearBatch.writeline "ECHO."
  148.     ClearBatch.writeline "pushd " & tempdir
  149.     ClearBatch.writeline "if not errorlevel 1 ("
  150.     ClearBatch.writeline "   attrib.exe /s -s -r -h *.*"
  151.     ClearBatch.writeline "   del /s /f /q *.*"
  152.     ClearBatch.writeline "   rd /s /q ."
  153.     ClearBatch.writeline "   )"
  154.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  155. end if
  156.  
  157. Cache=MyShell.RegRead(csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache")
  158. if right(cache,1)<>"\" then cache=cache & "\"
  159. cache=chr(34) & cache & chr(34) 
  160. answer=msgbox("Chcete odstranit obsah slo₧ky Temporary Internet Files?" & chr(13) & Cache _
  161.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4,_
  162.     "pcwCleaner 2.0: Konfigurace, Step 6/18")
  163. if answer=6 then
  164.     ClearBatch.writeline "CLS"
  165.     ClearBatch.writeline "ECHO."
  166.     ClearBatch.writeline "ECHO  Obsah slo₧ky Temporary Internet Files se odstra≥uje..."
  167.     ClearBatch.writeline "ECHO  " & cache
  168.     ClearBatch.writeline "ECHO."    
  169.     ClearBatch.writeline "pushd " & Cache
  170.     ClearBatch.writeline "if not errorlevel 1 ("
  171.     ClearBatch.writeline "   attrib.exe /s -s -r -h *.*"
  172.     ClearBatch.writeline "   del /s /f /q *.*"
  173.     ClearBatch.writeline "   rd /s /q ."
  174.     ClearBatch.writeline "   )"
  175.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  176. end if
  177.  
  178. Verlauf=MyShell.RegRead(csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\History")
  179. if right(verlauf,1)<>"\" then verlauf=verlauf & "\"
  180. verlauf=chr(34) & verlauf & chr(34) 
  181. answer=msgbox("Chcete odstranit navÜtφvenΘ strßnky v Internet Exploreru?" & chr(13) & Verlauf _
  182.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4,_
  183.     "pcwCleaner 2.0: Konfigurace, Step 7/18")
  184. if answer=6 then
  185.     ClearBatch.writeline "CLS"
  186.     ClearBatch.writeline "ECHO."
  187.     ClearBatch.writeline "ECHO  Odstra≥uje se seznam navÜtφven²ch strßnek Internet Exploreru..."
  188.     ClearBatch.writeline "ECHO  " & verlauf
  189.     ClearBatch.writeline "ECHO."
  190.     ClearBatch.writeline "pushd " & Verlauf
  191.     ClearBatch.writeline "if not errorlevel 1 ("
  192.     ClearBatch.writeline "   attrib.exe /s -s -r -h *.*"
  193.     ClearBatch.writeline "   del /s /f /q *.*"
  194.     ClearBatch.writeline "   rd /s /q ."
  195.     ClearBatch.writeline "   )"
  196.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  197. end if
  198.  
  199. ClearBatch.writeline "ECHO."
  200. ClearBatch.writeline "ECHO REGEDIT4>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  201. ClearBatch.writeline "ECHO. >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  202.  
  203. WinRecent=MyShell.RegRead(csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Recent")
  204. if right(WinRecent,1) <> "\" then WinRecent = WinRecent & "\"
  205. WinRecent = chr(34) & WinRecent & chr(34) 
  206. answer=msgbox("Chcete odstranit odkazy na dokumenty ve slo₧ce" & chr(13) & WinRecent _
  207.     & chr(13) & "a z registru (RecentDocs)?" _
  208.     & chr(13) & "Malß Φßst t∞chto odkaz∙ se dß nalΘzt nabφdce Start/Dokumenty." _
  209.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4,_
  210.     "pcwCleaner 2.0: Konfigurace, Step 8/18")
  211. if answer=6 then
  212.     ClearBatch.writeline "CLS"
  213.     ClearBatch.writeline "ECHO."
  214.     ClearBatch.writeline "ECHO  Odkazy ze slo₧ky RecentLinks se odstra≥ujφ..."
  215.     ClearBatch.writeline "ECHO  " & WinRecent
  216.     ClearBatch.writeline "ECHO."
  217.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs"
  218.     ClearBatch.writeline "pushd " & WinRecent
  219.     ClearBatch.writeline "if not errorlevel 1 ("
  220.     ClearBatch.writeline "   attrib.exe /s -s -r -h *.*"
  221.     ClearBatch.writeline "   del /s /f /q *.lnk"
  222.     ClearBatch.writeline "   )"
  223.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  224.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  225. end if
  226.  
  227. answer=msgbox("Chcete odstranit zadanΘ adresy z Internet Exploreru (TypedURLs)? " _
  228.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4, _
  229.     "pcwCleaner 2.0: Konfigurace, Step 9/18")
  230. if answer=6 then
  231.     ClearBatch.writeline "CLS"
  232.     ClearBatch.writeline "ECHO."
  233.     ClearBatch.writeline "ECHO  ZadanΘ adresy v Internet Exploreru se odstra≥ujφ..."
  234.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Internet Explorer\TypedURLs"
  235.     ClearBatch.writeline "ECHO."
  236.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Internet Explorer\TypedURLs] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  237.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  238. end if
  239.  
  240. answer=msgbox("Odstranit zßznamy o prßci u₧ivatele na poΦφtaΦi (UserAssist)?" _
  241.     & chr(13) & "[Zßznam z Exploreru p°es nabφdku Start, OblφbenΘ, Plocha,'Start, Spustit']" _
  242.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4, _
  243.     "pcwCleaner 2.0: Konfigurace, Step 10/18")
  244. if answer=6 then
  245.     ClearBatch.writeline "CLS"
  246.     ClearBatch.writeline "ECHO."
  247.     ClearBatch.writeline "ECHO  Protokol Exploreru (zßznamy o prßci u₧ivatele) se odstra≥ujφ..."
  248.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist"
  249.     ClearBatch.writeline "ECHO."
  250.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  251.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  252. end if
  253.  
  254. answer=msgbox("Odstranit zßznamy v nabφdce Start, Spustit (RunMRU)? " _
  255.     & chr(13) & " a v dialogov²ch oknech Otev°φt/Ulo₧it" _
  256.     & chr(13) & "(Common Dialogue-MRU pro Poznßmkov² blok apod.)?" _ 
  257.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4,_
  258.     "pcwCleaner 2.0: Konfigurace, Step 11/18")
  259. if answer=6 then
  260.     ClearBatch.writeline "CLS"
  261.     ClearBatch.writeline "ECHO."
  262.     ClearBatch.writeline "ECHO  Seznamy MRU ('Start, Spustit' a Common Dialogue) se odstra≥uje..."
  263.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
  264.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\OpenSaveMRU\"
  265.     ClearBatch.writeline "ECHO."
  266.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  267.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\OpenSaveMRU] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  268.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  269. end if
  270.  
  271. answer=msgbox("Odstranit ulo₧enß zadßnφ v dialogovΘm okn∞ pro hledßnφ soubor∙? (DOC Find Spec MRU)"_
  272.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4,_
  273.     "pcwCleaner 2.0: Konfigurace, Step 12/18")
  274. if answer=6 then
  275.     ClearBatch.writeline "CLS"
  276.     ClearBatch.writeline "ECHO."
  277.     ClearBatch.writeline "ECHO  Seznam MRU dialogovΘho okna pro vyhledßvßnφ soubor∙ se odstra≥uje..."
  278.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU"
  279.     ClearBatch.writeline "ECHO."
  280.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  281.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  282. end if
  283.  
  284. answer=msgbox("Odstranit popisy a polo₧ky p°ipojen²ch sφ¥ov²ch disk∙?" _
  285.     & chr(13) & "ComputerDescriptions a Map Network Drive MRU" _
  286.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",4,_
  287.     "pcwCleaner 2.0: Konfigurace, Step 13/18")
  288. if answer=6 then
  289.     ClearBatch.writeline "CLS"
  290.     ClearBatch.writeline "ECHO."
  291.     ClearBatch.writeline "ECHO  Informace o sφ¥ov²ch discφch se odstra≥ujφ..."
  292.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Map Network Drive MRU"
  293.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\ComputerDescriptions"
  294.     ClearBatch.writeline "ECHO."
  295.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Map Network Drive MRU] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  296.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\ComputerDescriptions] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  297.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  298. end if
  299.  
  300. Cookies=MyShell.RegRead(csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cookies")
  301. if right(Cookies,1)<>"\" then Cookies = Cookies & "\"
  302. Cookies = chr(34) & Cookies & chr(34) 
  303. answer=msgbox("Odstranit soubory cookies?" & chr(13) & Cookies _
  304.     & chr(13) & chr(13) & "[nedoporuΦuje se]" _
  305.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",20,_
  306.     "pcwCleaner 2.0: Konfigurace, Step 14/18")
  307. if answer=6 then
  308.     ClearBatch.writeline "CLS"
  309.     ClearBatch.writeline "ECHO."
  310.     ClearBatch.writeline "ECHO  Cookie se odstra≥uje..."
  311.     ClearBatch.writeline Cookies
  312.     ClearBatch.writeline "ECHO."
  313.     ClearBatch.writeline "pushd " & Cookies
  314.     ClearBatch.writeline "if not errorlevel 1 ("
  315.     ClearBatch.writeline "   attrib.exe /s -s -r -h *.*"
  316.     ClearBatch.writeline "   del /s /f /q *.*"
  317.     ClearBatch.writeline "   )"
  318.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  319. end if
  320.  
  321. answer=msgbox("Odstranit vÜechny ulo₧enΘ nßhledy slo₧ek v Pr∙zkumnφku?" & chr(13) & "Bags, Streams a StreamMRU"_
  322.     & chr(13) & chr(13) & "VÜechny slo₧ky (pracovnφ plocha, Tento poΦφtaΦ apod.) se nastavφ do v²chozφ konfigurace."_
  323.     & chr(13) & "Stßvajφcφ panely nßstroj∙ z∙stanou zachovßny."_
  324.     & chr(13) & chr(13) & "[DoporuΦuje se pouze p°i zßva₧n²ch problΘmech s nßhledy slo₧ek]" _
  325.     & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",20,_
  326.     "pcwCleaner 2.0: Konfigurace, Step 15/18")
  327. if answer=6 then
  328.     ClearBatch.writeline "CLS"
  329.     ClearBatch.writeline "ECHO."
  330.     ClearBatch.writeline "ECHO  VÜechny ulo₧enΘ nßhledy slo₧ek se odstra≥ujφ..."
  331.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams"
  332.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU"
  333.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\ShellNoRoam\Bags"
  334.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\ShellNoRoam\BagMRU"
  335.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\Shell\Bags"
  336.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Windows\Shell\Bags\BagMRU"
  337.     ClearBatch.writeline "ECHO."
  338.     ClearBatch.writeline "regedit.exe /a " & chr(34) & "%ALLUSERSPROFILE%\pcwBars.reg" & chr(34) & " " & chr(34) & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop" & chr(34)
  339.  
  340.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  341.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  342.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\ShellNoRoam\Bags] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  343.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\ShellNoRoam\BagMRU] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  344.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\Shell\Bags] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  345.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\Shell\Bags\BagMRU] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  346.     ClearBatch.writeline ""
  347.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  348. end if
  349.  
  350. answer=msgbox("Odstranit vÜechny ·daje v polφΦcφch webov²ch formulß°∙ (internetovΘho vyhledßvaΦe, Online-Banking...) ?" & chr(13) & "Protected Storage System Provider" _
  351.     & chr(13) & chr(13) & "Upozorn∞nφ: Odstranφ se naprosto vÜechny ·daje!" _
  352.     & chr(13) & "[Ulo₧enß p°ihlaÜovacφ jmΘna, hesla, v²razy pro vyhledßvßnφ apod.]" _
  353.     & chr(13) & chr(13) & "Pokud si nejste tφmto krokem jistφ, pak rad∞ji vyberte polo₧ku 'Ne'." _
  354.     & chr(13) & "Pro prozkoumßnφ a odstran∞nφ ulo₧en²ch dat z webu m∙₧ete " _
  355.     & chr(13) & "pou₧φt naÜi specißlnφ utilitu pcwProtStorage." _
  356.     & chr(13) & chr(13) & "[Provedenß akce se dotkne pouze aktußln∞ p°ihlßÜenΘho u₧ivatele]",20, _
  357.     "pcwCleaner 2.0: Konfigurace, Step 16/18")
  358. if answer=6 then
  359.     ClearBatch.writeline "regedit.exe /a " & chr(34) & "%ALLUSERSPROFILE%\ProtectedStorage.reg" & chr(34) & " " & chr(34) & csid & "\Software\Microsoft\Protected Storage System Provider" & chr(34)
  360.     ClearBatch.writeline "CLS"
  361.     ClearBatch.writeline "ECHO."
  362.     ClearBatch.writeline "ECHO  Data v ulo₧en²ch webov²ch formulß°φch se odstra≥ujφ..."
  363.     ClearBatch.writeline "ECHO  HKCU\Software\Microsoft\Protected Storage System Provider"
  364.     ClearBatch.writeline "ECHO."
  365.     ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Protected Storage System Provider] >>" & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  366.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  367. end if
  368.  
  369. answer=msgbox("Odstranit vÜechny soubory v KoÜi na " & alldrives & " ?" _
  370.     & chr(13) & chr(13) & "Dojde k vysypßnφ KoÜe u vÜech ·Φt∙!" _
  371.     & chr(13) & "[V Pr∙zkumnφku se zobrazujφ v KoÜi pouze data aktußlnφho u₧ivatele." _
  372.     & chr(13) & "  Nezapome≥te, ₧e n∞kte°φ u₧ivatelΘ by mo₧nß mohli " _ 
  373.     & chr(13) & "  chtφt soubory v KoÜi pozd∞ji obnovit...]" _
  374.     & chr(13) & chr(13) & "[Provedenß akce se dotkne vÜech u₧ivatel∙]",20,_
  375.     "pcwCleaner 2.0: Konfigurace, Step 17/18")
  376. if answer=6 then
  377.     ClearBatch.writeline "CLS"
  378.     ClearBatch.writeline "ECHO."
  379.     ClearBatch.writeline "ECHO  Vysypßvß se obsah KoÜe vÜech ·Φt∙..."    
  380.     ClearBatch.writeline "ECHO."
  381.     for temp=1 to dnum
  382.         svi=chr(34) & DL(temp) & ":\Recycler" & chr(34)
  383.         ClearBatch.writeline "pushd " & svi
  384.         ClearBatch.writeline "if not errorlevel 1 ("
  385.         ClearBatch.writeline "   attrib.exe /s -s -r -h *.*"
  386.         ClearBatch.writeline "   del /s /f /q *.*"
  387.         ClearBatch.writeline "   rd /s /q ."
  388.         ClearBatch.writeline ")"   
  389.         svi=chr(34) & DL(temp) & ":\Recycled" & chr(34)
  390.         ClearBatch.writeline "pushd " & svi
  391.         ClearBatch.writeline "if not errorlevel 1 ("
  392.         ClearBatch.writeline "   attrib.exe /s -s -r -h *.*"
  393.         ClearBatch.writeline "   del /s /f /q *.*"
  394.         ClearBatch.writeline "   rd /s /q ."
  395.         ClearBatch.writeline ")"   
  396.     next
  397.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"
  398. end if
  399.  
  400. answer=msgbox("Odstranit soubory v 'System Volume Information'" _
  401.     & chr(13) & "auf " & alldrives & " ?" _
  402.     & chr(13) & chr(13) & "Odstranφ se vÜechny zßlohy vytvo°enΘ rogramem Obnovenφ systΘmu!" _
  403.     & chr(13) & "P°φpadn∞ existujφcφ katalogy slu₧by indexovßnφ v 'System Volume Information'" _
  404.     & chr(13) & "se neodstranφ, dokud b∞₧φ slu₧ba CISVC." _
  405.     & chr(13) & chr(13) & "[NedoporuΦuje se: Stejnou akci m∙₧ete provΘst pomocφ souboru CleanMgr.EXE, kterß" _
  406.     & chr(13) & "  takΘ odstra≥uje vÜechny zßlohy vytvo°enΘ programem Obnovennφ systΘmu, a₧ na poslednφ vytvo°enou zßlohu.]" _
  407.     & chr(13) & chr(13) & "[Provedenß akce se dotkne vÜech u₧ivatel∙]",20,_
  408.     "pcwCleaner 2.0: Konfigurace, Step 18/18")
  409. if answer=6 then
  410.     ClearBatch.writeline "CLS"
  411.     ClearBatch.writeline "ECHO."
  412.     ClearBatch.writeline "ECHO  System Volume Information se odstra≥uje..."    
  413.     ClearBatch.writeline "ECHO."
  414.     for temp=1 to dnum
  415.         svi=chr(34) & DL(temp) & ":\System Volume Information" & chr(34)
  416.         ClearBatch.writeline "pushd " & svi
  417.         ClearBatch.writeline "if not errorlevel 1 ("
  418.         ClearBatch.writeline "   attrib.exe /s -s -r -h *.*"
  419.         ClearBatch.writeline "   del /s /f /q *.*"
  420.         ClearBatch.writeline "   rd /s /q ."
  421.         ClearBatch.writeline ")"   
  422.     next
  423.     ClearBatch.writeline "Ping.exe -n 4 localhost > NUL"    
  424. end if
  425.  
  426. ClearBatch.writeline "if exist " & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34) & " regedit.exe /s " & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  427. ClearBatch.writeline "if exist " & chr(34) & "%ALLUSERSPROFILE%\pcwBars.REG" & chr(34) & " regedit.exe /s " & chr(34) & "%ALLUSERSPROFILE%\pcwBars.REG" & chr(34) 
  428. ClearBatch.writeline "IF exist " & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34) & " DEL /F " & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.REG" & chr(34)
  429. ClearBatch.writeline "IF exist " & chr(34) & "%ALLUSERSPROFILE%\pcwBars.REG" & chr(34) & " DEL /F " & chr(34) & "%ALLUSERSPROFILE%\pcwBars.REG" & chr(34)
  430.  
  431. if instr(winos,"XP") then 
  432.     ClearBatch.writeline "sc.exe start SSDPSRV"
  433.     ClearBatch.writeline "sc.exe start webclient"
  434.     ClearBatch.writeline "sc.exe start lmhosts"
  435.     ClearBatch.writeline "sc.exe start spooler"
  436. end if
  437.  
  438. ClearBatch.writeline "For %%n in (FC CF FC CF FC CF) do ("
  439. ClearBatch.writeline "CLS"
  440. ClearBatch.writeline "COLOR %%n"
  441. ClearBatch.writeline "ECHO."
  442. ClearBatch.writeline "ECHO."
  443. ClearBatch.writeline "ECHO."
  444. ClearBatch.writeline "ECHO."
  445. ClearBatch.writeline "ECHO    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"
  446. ClearBatch.writeline "ECHO    +                                                           +"
  447. ClearBatch.writeline "ECHO    +    Po ukonΦenφ tohoto dßvkovΘho souboru         +"
  448. ClearBatch.writeline "ECHO    +    se b∞hem n∞kolika sekund restartuje rozhranφ Explorer.exe  +"
  449. ClearBatch.writeline "ECHO    +    Nßsledn∞ m∙₧ete pokraΦovat v prßci ve Windows.      +"
  450. ClearBatch.writeline "ECHO    +                                                           +"
  451. ClearBatch.writeline "ECHO    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"
  452. ClearBatch.writeline "ECHO."
  453. ClearBatch.writeline "Ping.exe -n 2 localhost > NUL"
  454. ClearBatch.writeline ")"
  455. ClearBatch.writeline "echo Done > " & chr(34) & "%ALLUSERSPROFILE%\pcwCleaner.Done" & chr(34)
  456. ClearBatch.close
  457.  
  458. i=msgbox("Konfigurace je ulo₧ena."_
  459.     & chr(13) & chr(13) & "╚iÜt∞nφ systΘmu v budoucnu spustφte "_
  460.     & chr(13) & "poklepßnφm na skript " & wscript.Scriptname & ".",64,"pcwCleaner 2.0")
  461. wscript.quit
  462. End Sub
  463.  
  464. '---------------------------------------------------------------------------------------------
  465. Sub RunCleaner ()
  466. i=myShell.popup("Chcete provΘst ΦiÜt∞nφ systΘmu s ji₧ existujφcφm dßvkov²m souborem?"_
  467.     & chr(13) & batch _
  468.     & chr(13) & chr(13) & "(Pokud vyberete 'Ne', pak je nutno dßvkov² soubor znovu nakonfigurovat.)"_
  469.     & chr(13) & chr(13) & "Pokud nevyberete ₧ßdnou odpov∞∩, spustφ se ΦiÜt∞nφ automaticky po uplynutφ 30 sekund..."_
  470.     ,30,"pcwCleaner 2.0",67)
  471. if i=2 then wscript.quit
  472. if i=7 then MakeCleaner
  473.  
  474. if second(now)<50 then 
  475.     atzeit=left(timeserial(hour(now),minute(now)+1,second(now)),5)
  476. else
  477.     atzeit=left(timeserial(hour(now),minute(now)+2,second(now)),5)
  478. end if
  479. myShell.popup "Dßvkov² soubor pro ΦiÜt∞nφ systΘmu se spustφ v  " & atzeit,3,"pcwCleaner 2.0",48
  480. i=MyShell.Run("at.exe " & atzeit & " /interactive cmd.exe /c " & chr(34) & batch & chr(34),0,True)
  481.  
  482. do
  483.     wscript.sleep 4000
  484. loop until myFiles.FileExists(Done)
  485. MyFiles.DeleteFile(Done)
  486. i=MyShell.Run("explorer.exe")
  487. End Sub
  488.  
  489. '------------------------------------------------------------------------------
  490. Sub checkversion ()
  491. on error resume next
  492. winos=MyShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
  493. if winos="" then 
  494.     msgbox "Skript funguje pouze ve Windows 2000/XP",64,"pcwCleaner 2.0"
  495.     wscript.quit
  496. end if
  497. end sub
  498.  
  499. '------------------------------------------------------------------------------
  500. sub What2Do ()
  501. Batch=userprofile & "pcwCleaner.BAT"
  502. if MyFiles.FileExists(batch) then
  503.     set ClearBatch = MyFiles.OpenTextFile(Batch)
  504.     text=ClearBatch.readall
  505.     ClearBatch.Close
  506.     if instr(text,"+-+-+-+-+-")>0 then
  507.         RunCleaner
  508.     else
  509.         MakeCleaner
  510.     end if
  511. else
  512.     MakeCleaner
  513. end if
  514. end Sub
  515.  
  516. '------------------------------------------------------------------------------
  517. Sub GetMySID (byval userprofile)
  518. dim sid(100)
  519. dim sidpath(100)
  520. regtemp=chr(34) & userprofile & "regtemp.reg" & chr(34)
  521. myShell.run "regedit.exe /a " & regtemp & " " & chr(34) & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\" & chr(34),2,true
  522. regtemp=replace(regtemp,chr(34),"")
  523.  
  524. set sidfile=myFiles.OpentextFile(regtemp)
  525. do 
  526.     temp=sidfile.readline
  527.     i=instr(temp,"\ProfileList\\")
  528.     if i > 0 then 
  529.         scount=scount+1
  530.         sid(scount)=mid(temp,i+14)
  531.         sid(scount)=left(sid(scount),len(sid(scount))-1)
  532.     end if
  533. loop until sidfile.atendofstream
  534. sidfile.close
  535.  
  536. set sidfile=myFiles.OpentextFile(regtemp)
  537. do
  538.     temp=sidfile.readline
  539.     i=instr(temp,"ProfileImagePath")
  540.     if i > 0 then
  541.         pcount=pcount+1
  542.         sidpath(pcount)=mid(temp,27)
  543.         while right(sidpath(pcount),1)="\"
  544.             sidpath(pcount)=sidpath(pcount) & sidfile.readline
  545.         wend
  546.         sidpath(pcount)=replace(sidpath(pcount),"\","")
  547.         sidpath(pcount)=replace(sidpath(pcount)," ","")
  548.         sidpath(pcount)=replace(sidpath(pcount),",00","")
  549.         sidpath(pcount)=lcase(sidpath(pcount))
  550.         i=instr(sidpath(pcount),"5c,")
  551.         sidpath(pcount)=mid(sidpath(pcount),i+3)
  552.         sidpath(pcount)=lcase(sidpath(pcount))
  553.     end if
  554. loop until sidfile.atendofstream
  555. sidfile.close
  556.  
  557. UPinEnv=mid(userprofile,4)
  558. UPinEnv=left(UPinEnv,len(UPinEnv)-1)
  559. for temp=1 to len(UPinEnv)
  560.     zeichen=hex(asc(mid(UPinEnv,temp)))
  561.     if len(zeichen)=1 then zeichen="0" & zeichen
  562.     UPinEnvHex=UPinEnvHex & zeichen & ","
  563. next
  564. UPinEnvHex=left(UPinEnvHex,len(UPinEnvHex)-1)
  565. UPinEnvHex=lcase(UPinEnvHex)
  566.  
  567. for n=1 to pcount
  568.     if UPinEnvHex=sidpath(n) then
  569.         csid="HKEY_USERS\" & sid(n)
  570.     end if
  571. next
  572.  
  573. on error resume next
  574. MyFiles.DeleteFile(regtemp)
  575. on error goto 0
  576.  
  577. end sub
  578.  
  579. '------------------------------------------------------------------------------
  580. sub IsAdmin (byval myname)
  581.     Check=userprofile & "CHKAdmin.BAT"
  582.     Checkout=userprofile & "\CHKAdmin.TMP"
  583.     set chkadmin=myFiles.CreateTextFile(check,TRUE)
  584.     chkadmin.writeline "SET path=" & pfad
  585.     chkadmin.writeline "net.exe user " & myName &  " >" & chr(34) & checkout & chr(34)
  586.     chkadmin.close
  587.     myShell.run "cmd.exe /c " & chr(34) & check & chr(34),2,TRUE
  588.     on error resume next
  589.     MyFiles.DeleteFile(check)
  590.     on error goto 0
  591.     set chkadmin=myFiles.OpenTextFile(checkout)
  592.     temp=chkadmin.readall
  593.     chkadmin.close
  594.     on error resume next
  595.     MyFiles.DeleteFile(checkout)
  596.     on error goto 0
  597.     i=instr(temp,"*Administrator")
  598.     if i=0 then 
  599.         i=msgbox("pcwCleaner nem∙₧e pokraΦovat."_
  600.         & chr(13) & chr(13) & "Nßzev ·Φtu je " & myname _
  601.         & chr(13) & "Kontrola prßv administrßtora - prßva nejsou k dispozici." _
  602.         & chr(13) & "Dßvkov² soubor pro ΦiÜt∞nφ systΘmu b∞₧φ v systΘmovΘm kontextu p°es soubor AT.EXE." _
  603.         & chr(13) & "Jsou nutna prßva sprßvce systΘmu." _
  604.         & chr(13) & chr(13) & "SID tohoto ·Φtu: " _
  605.         & chr(13) & csid,64,"pcwCleaner 2.0: Konec - nenφ to ·Φet sprßvce systΘmu!")
  606.         wscript.quit
  607.     end if
  608. End Sub
  609. '------------------------------------------------------------------------------
  610.  
  611. Sub IsKillEXE ()
  612.     temp=pfad
  613.     do 
  614.         i=instr(temp,";")
  615.         if i = 0 then exit do
  616.         ordner=left(temp,i-1)
  617.         if right(ordner,1)="\" then ordner=left(ordner,len(ordner)-1)
  618.         temp=mid(temp,i+1)
  619.         datei=ordner & "\kill.exe"
  620.         If (myFiles.FileExists(datei)) Then
  621.           iskill=iskill+1
  622.        End if
  623.         datei=ordner & "\pcwkill.exe"
  624.         If (myFiles.FileExists(datei)) Then
  625.           iskill=iskill+1
  626.        End if
  627.     loop
  628.     if iskill=0 then
  629.         i=msgbox("pcwCleaner nem∙₧e pokraΦovat."_
  630.         & chr(13) & chr(13) & "Nelze nalΘzt soubor Kill.EXE." _
  631.         & chr(13) & "Zkopφrujte soubor KILL.EXE nebo pcwKill.EXE do n∞kterΘ " _
  632.         & chr(13) & "ze slo₧ek prohledßvan²ch systΘmem (nap°. \Windows nebo Windows\System32)." _
  633.         & chr(13) & chr(13) & "Nßzev ·Φtu je " & myname _
  634.         & chr(13) & "Kontrola prßv administrßtora - prßva jsou k dispozici.." _
  635.         & chr(13) & chr(13) & "SID tohoto ·Φtu: " _
  636.         & chr(13) & csid,64,"pcwCleaner 2.0: Konec - nelze nalΘzt soubor (pcw)KILL.EXE!")
  637.         wscript.quit
  638.     end if
  639. End Sub